home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (PO) / Nibble Volume 11, No. 08 (1990-08)(MindCraft Publishing)(Side A)[a].zip / Nibble Volume 11, No. 08 (1990-08)(MindCraft Publishing)(Side A)[a].po / SNOWFLAKES.bas < prev    next >
BASIC Source File  |  1996-12-24  |  336b  |  2 lines
  1. 1  POKE 232,0: POKE 233,96: POKE 24576,1: POKE 24577,0: POKE 24578,4: POKE 24579,0: HCOLOR= 3
  2. 2 P =  PEEK(49152) -176:P = 64/(P - INT(P/10) *10 +(P = 0)): HGR2 : FOR A = 24580 TO 24595: POKE A, INT( RND(1) *20) +5: NEXT A: POKE 24596,0: FOR Y = 2 TO 7: SCALE= Y: FOR X = 0 TO 64  STEP P: ROT= X: DRAW 1 AT 140,96: NEXT X: NEXT Y: GOTO 2